home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs07.d81
/
stresst.prg
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-10-10
|
9KB
|
269 lines
1 PRINTCHR$(14)"[147]";:EV=0:RE=0
2 POKE 53280,11:POKE53281,11:POKE646,3
3 PRINT" [200][207][215][160][205][213][195][200][160][211][212][210][197][211][211][160][195][193][206][160][217][207][213][160][212][193][203][197]?"
4 POKE646,1
5 PRINT"[196]R. [212]HOMAS [200]. [200]OLMES DEVISED THIS SCALE"
6 PRINT"ASSIGNING POINT VALUE TO CHANGES, BOTH"
7 POKE646,1
8 PRINT"GOOD AND BAD, THAT OFTEN AFFECT US."
9 PRINT"[215]HEN ENOUGH CHAGES OCCUR DURING ONE"
10 PRINT"ONE YEAR TO ADD UP TO 300 POINTS, A"
11 PRINT"DANGER POINT HAS BEEN REACHED."
12 PRINT"[201]N THE POPULATION HE STUDIED, 80 PER-"
13 PRINT"CENT OF THE PEOPLE WHO EXCEEDED 300 "
14 PRINT"POINTS BECAME SERIOUSLY DEPRESSED OR"
15 PRINT"SUFFERED SERIOUS ILLNESSES."
16 IF EV=11THENRETURN
17 PRINT" [208]RESS ANY KEY TO CONTINUE..."
18 GETA$
19 IFA$="\"THENP=345:GOTO 156
20 IFA$=""THEN18
21 PRINT"[147][217]OU WILL BE ASKED TO RESPOND [217]ES OR "
22 PRINT"[206]O TO 43 QUESTIONS. [201]F YOUR TOTAL"
23 PRINT"EQUALS OR EXCEEDS 300 POINTS, YOU WILL"
24 PRINT"BE SHOWN [154][199][213][201][196][197][204][201][206][197][211][160][198][207][210][160][204][207][215][160][211][212][210][197][211][211]"
25 PRINT"[204][201][214][201][206][199], 18 SIMPLE SUGGESTIONS FOR"
26 PRINT"LEADING A LESS STRESSFUL LIFE. [198]OR"
27 PRINT"MORE INFORMATION ABOUT THE DANGERS OF"
28 PRINT"STRESS, CONSULT YOUR DOCTOR."
29 PRINT" [208]RESS ANY KEY TO BEGIN."
30 GOSUB 266
31 POKE646,10
32 PRINT"[147][197][214][197][206][212] [204][201][198][197]
33 [153]"(null)ATN(null)(null)VAL VAL(null)VAL(null)(null)
34 PRINT"[163][163][163][163][163] [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
35 POKE646,1
36 IFRE=1THENRETURN
37 RE=1
38 PRINT" 100 [196]EATH OF SPOUSE (Y/N)"
39 GOSUB150
40 PRINT" 73 [196]IVORCE (Y/N)"
41 GOSUB150
42 PRINT" 65 [205]ARITAL SEPERATION (Y/N)"
43 GOSUB150
44 PRINT" 63 [202]AIL TERM (Y/N)"
45 GOSUB150
46 PRINT" 63 [196]EATH OF CLOSE FAMILY MEMBER"
47 GOSUB150
48 PRINT" 53 [208]ERSONAL INJURY OR ILLNESS"
49 GOSUB150
50 PRINT" 50 [205]ARRIAGE (Y/N)"
51 GOSUB150
52 PRINT" 47 [198]IRED FROM JOB (Y/N)"
53 GOSUB150
54 RE=1
55 GOSUB 31
56 PRINT" 45 [205]ARITAL RECONCILLIATION (Y/N)"
57 GOSUB150
58 PRINT" 45 [210]ETIREMENT (Y/N)"
59 GOSUB150
60 PRINT" 44 [200]EALTH CHANGE IN FAMILY MEMBER"
61 GOSUB150
62 PRINT" 40 [208]REGNANCY (Y/N)"
63 GOSUB150
64 PRINT" 39 [211]EX DIFFICULTIES (Y/N)"
65 GOSUB150
66 PRINT" 39 [199]AIN OF NEW FAMILY MEMBER"
67 GOSUB150
68 PRINT" 39 [194]USINESS READJUSTMENT (Y/N)"
69 GOSUB150
70 PRINT" 38 [195]HANGE IN FINANCIAL STATE (Y/N)"
71 GOSUB150
72 PRINT" 37 [196]EATH OF CLOSE FRIEND (Y/N)"
73 GOSUB150
74 GOSUB 31
75 PRINT" 36 [195]HANGE TO DIFFERENT LINE"
76 PRINT" OF WORK (Y/N)
77 [141]150
78 [153]" 35 LENHANGE IN NUMBER OF"
79 [153]" ARGUMENTS WITH SPOUSE (Y/N)"
80 [141]150
81 [153]" 31 (null)ORTGAGE OVER $10,000 (Y/N)"
82 [141]150
83 [153]" 30 ASCORCLOSURE OF MORTGAGE OR LOAN"
84 [141]150
85 [153]" 29 LENHANGE IN RESPONSIBILITIES"
86 [153]" AT WORK (Y/N)"
87 [141]150
88 [153]" 29 (null)ON OR DAUGHTER LEAVING"
89 [153]" HOME (Y/N)"
90 [141]150
91 [153]" 29 (null)ROUBLE WITH INLAWS (Y/N)"
92 [141]150
93 [153]" 28 (null)UTSTANDING PERSONAL"
94 [153]" ACHIEVEMENT (Y/N)"
95 [141]150
96 [141] 31
97 [153]" 28 (null)POUSE BEGIN OR STOP WORK"
98 [141]150
99 [153]" 26 PEEKEGIN OR END SCHOOL (Y/N)"
100 [141]150
101 [153]" 25 LENHANGE IN LIVING"
102 [153]" CONDITIONS (Y/N)"
103 [141]150
104 [153]" 24 (null)EVISION OF PERSONAL"
105 [153]" HABITS (Y/N)"
106 [141]150
107 [153]" 23 (null)ROUBLE WITH BOSS (Y/N)"
108 [141]150
109 [153]" 20 LENHANGE IN WORK HOURS"
110 [153]" OR CONDITONS (Y/N)"
111 [141]150
112 [153]" 20 LENHANGE IN (null)ESIDENCE (Y/N)"
113 [141]150
114 [153]" 20 LENHANGE IN SCHOOLS (Y/N)"
115 [141]150
116 [153]" 19 LENHANGE IN RECREATION (Y/N)"
117 [141]150
118 [141] 31
119 [153]" 19 LENHANGE IN CHURCH ACTIVITIES"
120 [141]150
121 [153]" 18 LENHANGE SOCIAL ACTIVITIES"
122 [141]150
123 [153]" 17 (null)ORTGAGE OR LOAN LESS"
124 [153]" THAN $10,000 (Y/N)"
125 [141]150
126 [153]" 16 LENHANGE IN SLEEPING HABITS"
127 [141]150
128 [153]" 15 LENHANGE IN THE NUMBER OF"
129 [153]" FAMILY GET TOGETHERS (Y/N)"
130 [141]150
131 [153]" 15 LENHANGE IN EATING HABITS (Y/N)"
132 [141]150
133 [153]" 13 (null)ACATION (Y/N)"
134 [141]150
135 [153]" 12 LENHRISTMAS (Y/N)"
136 [141]150
137 [153]" 11 (null)INOR VIOLATIONS OF THE LAW"
138 [141]150
139 [153]"LOAD";
140 [139]P[178][177]300 [167] 156
141 [141]3
142 [153]"(null)OUR TOTAL POINTS: ";P
143 [141]266
144 [138]
145 [131] 100,73,65,63,63,53,50,47,45
146 [131] 45,44,40,39,39,39,38,37,36,35
147 [131] 31,30,29,29,29,28,26,26,25,24
148 [131] 23,20,20,20,19,19,18,17,16,15
149 [131] 15,13,12,11
150 [135] EV:A$[178]""
151 [151]198,0:[129]X[178]1[164]999:[130]
152 [161] A$:[139]A$[178]""[167]152
153 [139]A$[178]"N"[167][142]
154 [139]A$[178]"Y"[167]P[178]P[170]EV:[142]
155 [137]151
156 [151]53280,4:[151]53281,4:[151]646,0
157 [153]"LOADRIGHT$N THE POPULATION SAMPLE STR$R. LEFT$OLMES"
158 [153]"USED IN HIS RESEARCH, 80 PER CENT OF"
159 [153]"THE PEOPLE WHO EXCEEDED 300 POINTS"
160 [153]"BECAME SERIOUSLY DEPRESSED OR SUFFERED"
161 [153]"SERIOUS ILLNESSES. (null)OUR POINT SCORE OF"
162 [153]" INDICATES THAT YOU VERIFYCOULDSTOP BECOME"
163 [153]"SERIOUSLY DEPRESSED OR WORSE. (null)OU SHOULD"
164 [153]"CONSULT WITH YOUR FAMILY DOCTOR. ATNNY "
165 [153]"REAL HELP IS BEYOND THE SCOPE OF THIS"
166 [153]"PROGRAM. LEFT$OWEVER, THE FOLLOWING "
167 [153]"CHR$(null)RIGHT$STR$VAL(null)RIGHT$(null)VAL(null)CLOSEASC(null)(null)CLOSE(null)(null)(null)CLOSE(null)(null)(null)VAL(null)(null) (null)RIGHT$(null)RIGHT$(null)CHR$ MAY"
168 [153]"BE OF SOME INTEREST. (null)RESS ANY KEY ..."
169 [161]A$:X[178]X[170]1:[139][181](X[173]2)[178]X[173]2[167][153]"";[199](18);P
170 [139]X[173]2[179][177][181](X[173]2)[167][129]Z[178]1[164]40:[130]Z:[153]"";P
171 [139]A$[178]""[167]169
172 [151]646,3:[151]53281,6:[151]53280,6
173 [153]"LOAD CHR$(null)RIGHT$STR$VAL(null)RIGHT$(null)VAL(null)CLOSEASC(null)(null)CLOSE(null)(null)(null)CLOSE(null)(null)(null)VAL(null)(null)CLOSE(null)RIGHT$(null)RIGHT$(null)CHR$"
174 [151]646,10
175 [153]" TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( TAB(TAB(TAB( TAB(TAB(TAB( TAB(TAB(TAB(TAB(TAB(TAB( TAB(TAB(TAB(TAB(TAB(TAB("
176 [151]646,1:[139] RE[178]2[167][142]
177 [153]"1. (null)AKE TIME YOUR FRIEND, NOT YOUR"
178 [153]" ENEMY. STR$EVELOP TIME MANGAGEMENT"
179 [153]" TECHNIQUES."
180 [153]"2. (null)EARN AND PRACTICE THE SKILL OF"
181 [153]" RELAXATION."
182 [153]"3. VALNGAGE IN ACTIVITIES THAT GIVE "
183 [153]" YOU A CHANCE TO DO SOMETHING"
184 [153]" RELAXING OR CREATIVE WITHOUT"
185 [153]" HAVING TO HAVE SOMETHING TO SHOW"
186 [153]" FOR IT."
187 [153]"4. STR$ON'T DEVELOP ONE ARE OF YOUR "
188 [153]" LIFE TO THE EXCLUSION OF OTHERS."
189 [153]" (null)EEK REWARDING EXPERIENCES IN ALL"
190 [153]" FACETS OF LIVING."
191 [153]" (null)RESS ATNNY (null)EY (null)O LENONTIUE"
192 [141]266
193 RE[178]2:[141] 172
194 [153]"5. ASCIND SOME TIME EVERY DAY FOR"
195 [153]" PRIVACY. (null)OU NEED TO BE ALONE WITH"
196 [153]" YOUR THOUGHTS AWAY FROM WORK OR"
197 [153]" OTHER PRESSURES."
198 [153]"6. ATNSSOCIATE WITH PEOPLE WHO AFFIRM"
199 [153]" YOUR INDIVIDUALITY AND RESPECT"
200 [153]" YOUR WANTS AND NEEDS."
201 [153]"7. ASCORM AT LEAST ONE OR TWO HIGH"
202 [153]" QUALITY RELATIONSHIPS WITH PEOPLE"
203 [153]" YOU CAN TRUST. (null)EARN TO EXPRESS YOUR"
204 [153]" TRUE FEELINGS TO THEM."
205 [153]"8. STR$ON'T CONTINUE IN STRESSFUL"
206 [153]" SITUATIONS WITH FAMILY AND FRIENDS."
207 [153]" (null)AKE ACTION TO FIND A REOLUTION IN"
208 [153]" PROBLEM AREAS."
209 [153]" (null)RESS ATNNY (null)EY (null)O LENONTIUE"
210 [141]266
211 [141]172
212 [153]"9. CHR$UARD YOUR PERSONAL FREEDOMS - TO"
213 [153]" CHOOSE YOUR FRIENDS, TO LOVE WHOM"
214 [153]" YOU CHOOSE, TO STRUCTURE YOUR TIME"
215 [153]" AS YOU SEE FIT, AND TO CHOOSE YOUR"
216 [153]" OWN LIFE GOALS."
217 [153]"10. (null)EVIEW YOUR 'OBLIGATIONS' FROM "
218 [153]" TIME TO TIME AND MAKE SURE THEY"
219 [153]" ARE ALSO BRINGING REWARDS TO YOU."
220 [153]" CHR$ET RID OF THE THINGS THAT ONLY"
221 [153]" BRING SATISFACTION TO SOMEONE ELSE."
222 [153]"11. STR$ON'T LIVE FOR OR THROUGH YOUR"
223 [153]" CHILDREN, SPOUSE OR ANYONE ELSE."
224 [153]"12. (null)PEN YOURSELF TO NEW EXPERIENCES."
225 [153]"13. STR$EVELOP AND KEEP SENSIBLE EATING"
226 [153]" HABITS."
227 [153]" (null)RESS ATNNY (null)EY (null)O LENONTIUE"
228 [141]266
229 [141]172
230 [153]"14. RIGHT$F YOU SMOKE, CUT DOWN OR STOP."
231 [153]"15. (null)SE LIQUOR SPARINGLY, IF AT ALL."
232 [153]" STR$ON'T LET IT USE YOU."
233 [153]"16. ASCREE YOURSELF FROM DEPENDENCY ON"
234 [153]" TRANQUILIZERS, SLEEPING PILLS,"
235 [153]" HEADACHE PILLS OR OTHER DEPRESSANT"
236 [153]" DRUGS. PEEKE CAUTIOUS OF THE USE OF"
237 [153]" LAXITIVES AND COLD REMEDIES. (null)EACH"
238 [153]" YOUR BODY TO RELAX AND NORMALIZE"
239 [153]" FUNCTIONS."
240 [153]"17. (null)EE THE HUMOR IN LIFE. (null)AUGH AT "
241 [153]" YOURSELF WHENEVER YOU GET A CHANCE."
242 [153]"18. (null)RACTICE MAKING POSITIVE SELF"
243 [153]" STATEMENTS. (null)EMIND YOURSELF THAT"
244 [153]" (null)(null)(null) ARE WORTHWHILE AND DESRVING"
245 [153]" (null)RESS ATNNY (null)EY (null)O LENONTIUE"
246 [141]266
247 [153]"POKE (null)HE (null)TRESS (null)EST"
248 [153]"OPENLOAD(null)RESS CHR$ WAIT TO REVIEW THE GUIDLINES.":A$[178]""
249 [153]"(null)RESS (null) WAIT TO QUIT THE (null)TRESS (null)EST."
250 [153]"(null)RESS (null) WAIT TO START THE (null)TRESS (null)EST."
251 [153]"LIST(null)HE (null)TRESS (null)EST AND THE CHR$UIDELINES"
252 [153]"ASCOR (null)OW (null)TRESS (null)IVING WERE PRINTED BY"
253 [153]"ASCIRST LEFT$OSPITAL LENORPORATION. (null)HILE NO"
254 [153]"COPYRIGHT NOTICE APPEARED ON EITHER,"
255 [153]"ALL RIGHTS CLAIMED BY ASCIRST LEFT$OSPITAL"
256 [153]"ARE RESERVED AND SHOULD BE RESPECTED."
257 [129]X[178]1[164]100:[130]:A$[178]""
258 [153]"INFORMATION AND ENTERTAINMENT ONLY."
259 [153]"SYSLENONSULT YOUR FAMILY DOCTOR FOR MEDICAL"
260 [153]"ADVICE."
261 [141]266
262 [139]A$[178]"G"[167] RE[178]1:[137]173
263 [139]A$[178]"Q"[167][128]
264 [139]A$[178]"S"[167][138]
265 [137]261
266 [151]198,0
267 [161]A$:[139]A$[178]""[167]267
268 [142]